The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Panorama.dxr/00089_control handlers.ls

Text File | 1998-11-19 | 4.2 KB | 163 lines

global nodepict, hiliterect, gmouseupslist, gmousedownslist

on initcontrols
  set gmousedownslist to []
  set gmouseupslist to []
  setAt(gmouseupslist, nodepict, 0)
  setAt(gmousedownslist, nodepict, 0)
end

on addcontrol channel, chotspots, cactions, whichway
  if not listp(chotspots) or not listp(cactions) then
    return #badcontrol
  end if
  if count(chotspots) <> count(cactions) then
    return #badcontrol
  end if
  if whichway = #down then
    setAt(gmousedownslist, channel, [chotspots, cactions])
  else
    setAt(gmouseupslist, channel, [chotspots, cactions])
  end if
end

on deletecontrol channel, whichway
  if (whichway = #up) or (whichway = #both) then
    setAt(gmouseupslist, channel, 0)
  end if
  if (whichway = #down) or (whichway = #both) then
    setAt(gmousedownslist, channel, 0)
  end if
end

on hitcontrol whichway
  set me to the clickOn
  set hitpoint to point(the mouseH - the left of sprite me, the mouseV - the top of sprite me)
  if whichway = #down then
    set controlslist to gmousedownslist
  else
    set controlslist to gmouseupslist
  end if
  set mycontrol to getAt(controlslist, me)
  if not listp(mycontrol) then
    return #notcontrol
  end if
  if count(mycontrol) < 2 then
    return #notcontrol
  end if
  set hitlist to getAt(mycontrol, 1)
  if not listp(hitlist) then
    return #notcontrol
  end if
  set actionlist to getAt(mycontrol, 2)
  if not listp(actionlist) then
    return #notcontrol
  end if
  if (count(actionlist) <> count(hitlist)) or (count(hitlist) = 0) then
    return #badcontrol
  end if
  repeat with i in hitlist
    set n to getOne(hitlist, i)
    set left to getAt(i, 1) - 5
    set top to getAt(i, 2) - 5
    set right to getAt(i, 3) + 5
    set bottom to getAt(i, 4) + 5
    set hitr to rect(left, top, right, bottom)
    if inside(hitpoint, hitr) then
      puppetSound(3, "Button")
      updateStage()
      put 60 into field "FOV"
      do(getAt(actionlist, n))
      exit repeat
    end if
  end repeat
end

on checkrollover whichway
  set noroll to 1
  repeat with i = hiliterect - 1 down to 1
    if rollOver(i) then
      if (listp(getAt(gmouseupslist, i)) and ((whichway = #up) or (whichway = #both))) or (listp(getAt(gmousedownslist, i)) and ((whichway = #down) or (whichway = #both))) then
        hilitecontrol(i, whichway)
        set noroll to 0
        exit repeat
      end if
    end if
  end repeat
  if noroll then
    set the locH of sprite nodepict to -1000
    updateStage()
  end if
end

on hilitecontrol contnum, whichway
  set norect to 1
  if (whichway = #up) or (whichway = #both) then
    set upcont to getAt(gmouseupslist, contnum)
    if not listp(upcont) then
      set uprects to []
    end if
    if count(upcont) < 2 then
      set uprects to []
    end if
    if voidp(uprects) then
      set uprects to getAt(upcont, 1)
    else
      nothing()
    end if
  else
    set uprects to []
  end if
  if (whichway = #down) or (whichway = #both) then
    set downcont to getAt(gmousedownslist, contnum)
    if not listp(downcont) then
      set downrects to []
    end if
    if count(downcont) < 2 then
      set downrects to []
    end if
    if voidp(downrects) then
      set downrects to getAt(downcont, 1)
    else
      nothing()
    end if
  else
    set downrects to []
  end if
  set rectlist to combo(uprects, downrects)
  set hoff to the left of sprite contnum
  set voff to the top of sprite contnum
  set where to point(the mouseH - hoff, the mouseV - voff)
  repeat with r in rectlist
    set left to getAt(r, 1) - 5
    set top to getAt(r, 2) - 5
    set right to getAt(r, 3) + 5
    set bottom to getAt(r, 4) + 5
    set r1 to rect(left, top, right, bottom)
    if inside(where, r1) then
      spriteBox(nodepict, getAt(r, 1) + hoff, getAt(r, 2) + voff, getAt(r, 3) + hoff, getAt(r, 4) + voff)
      updateStage()
      set norect to 0
      exit repeat
    end if
  end repeat
  if norect then
    set the locH of sprite nodepict to -1000
  end if
end

on combo alist, anotherlist
  set rectlist to []
  repeat with r in alist
    if ilk(r, #rect) then
      add(rectlist, r)
    end if
  end repeat
  repeat with r in anotherlist
    if ilk(r, #rect) then
      add(rectlist, r)
    end if
  end repeat
  return rectlist
end